home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / EXITCODE.M < prev    next >
Encoding:
Text File  |  1994-01-18  |  892 b   |  19 lines
  1. MODULE ExitCode;
  2.  
  3. FROM PrgCtrl IMPORT TermProcess;
  4. FROM InOut IMPORT ReadInt, WriteLn, WriteString;
  5. FROM GEMDOS IMPORT Term;
  6.  
  7. VAR i: INTEGER;
  8.  
  9. BEGIN
  10.   WriteString ('ExitCode: ');
  11.   ReadInt (i);
  12.   (*
  13.     Term (i);
  14.   *)
  15.   TermProcess (i)
  16. END ExitCode.
  17. ə
  18. (* $FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$00000071$FFE4EFD2$0000010C$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2Ç$FFE4EF94T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000084$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2$FFE4EFD2äÇÇ*)
  19.